home *** CD-ROM | disk | FTP | other *** search
/ Creative Computers / Creative Computers CD-ROM, Volume 1 (Legendary Design Technologies, Inc.)(1994).iso / commercial / inovatronics / edgedemo / edgeeditor / rexx / menu_opennewfile.edge < prev    next >
Text File  |  1994-11-17  |  587b  |  37 lines
  1. /*
  2. ** $VER: Menu_OpenNewFile.edge 1.1 (Sunday 08-Aug-93 02:50:56)
  3. **
  4. ** Open a new workfile and bring up the FileRequester so the 
  5. ** user may select a file to load
  6. **
  7. ** Written by Thomas liljetoft
  8. */
  9.  
  10.  
  11. options results
  12.  
  13. /*    get the users error-report level */
  14.  
  15. getenvvar _ge_errlevel
  16. errlevel = result
  17.  
  18. /* open a new file*/
  19.  
  20. 'new'
  21. if RC == 0 then do
  22.     /* if succesfull, address the new window and call open */
  23.  
  24.     address value result
  25.     'open'
  26.     end
  27.  
  28. if RC >= errlevel then do
  29.  
  30.     /* something went wrong enough to be reported so report */
  31.  
  32.     'fault'
  33.     'requestnotify' '"'result'"'
  34.     end
  35.  
  36. exit(0)
  37.